home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / www / JTAWicon.lha / JTMakeIconR.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-29  |  748b  |  26 lines
  1. /* Make Icons - Icon Creator for AWeb-II
  2.   (c)1997 by Joachim Thomas
  3.  
  4.   jthomas@mail.evo.it
  5.   jthomas@readme.com
  6.  
  7.   This Program is E-Mailware - You may distribute it, on condition
  8.   that all parts are left intact.
  9.   If you like it or want to make improvements, please E-Mail me
  10.  
  11.   --- !!! needs rexxreqtools.library v37.95+ !!! ---
  12.  
  13. */
  14.  
  15. call addlib("rexxreqtools.library", 0, -30, 0)
  16.  
  17. 'GET URL var UrlName'
  18. IconName=translate(UrlName,'  ',':/.')
  19. StartPos=WORDS(IconName)
  20. IconName=WORD(IconName,StartPos-1)
  21. IconNameC=rtfilerequest("JtStartIcons:",IconName,,,)
  22. AAA=OPEN(ICONFILE,IconNameC,'W')
  23. address command 'copy JTStartIcons:template.info '||IconNameC||'.info'
  24. OKW=WRITELN(ICONFILE,'CD AWeb-II:')
  25. OKW=WRITELN(ICONFILE,'AWeb-II:AWeb-II 'UrlName)
  26.